#!/usr/bin/perl


#  perl telnet.pl 192.168.203.1  


use strict;
use Net::Telnet;

my $p = Net::Telnet->new();
my $h = shift || "www.chinaunix.net";

$p->open(Host => $h, Port =>80);
$p->print("GET /\n");


while(my $line = $p->getline())
{
        print $line;
}
exit 0;